home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / ForeGnd to Bkgnd.cpt / ForeGnd to Bkgnd / background_3098.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  120 lines
  1. -- background: 3098 from stack: in
  2. -- bmap block id: 3574
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11. on openstack
  12.   choose browse tool
  13.   global arrowflag
  14.   put 0 into arrowflag
  15.   wait 2 seconds
  16.   set the scroll of card field id 4 to 0
  17.   show card field id 4
  18.   put the version into temp
  19.   if temp > 1.0 then
  20.     if the textarrows is true then put 1 into arrowflag
  21.     set the textarrows to false
  22.   end if
  23.   hide message window
  24.   hide tool window
  25.   hide pattern window
  26.  
  27. end openstack
  28.  
  29.  
  30. on closestack
  31.   global arrowflag
  32.   go to first card
  33.   hide card field id 4
  34.   if the version > 1.0 then
  35.     if arrowflag = 0 then
  36.       set textarrows to false
  37.     end if
  38.   end if
  39. end closestack
  40.  
  41.  
  42. -- part 3 (button)
  43. -- low flags: 00
  44. -- high flags: 0000
  45. -- rect: left=421 top=323 right=342 bottom=446
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 16560 / 16560
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Next
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   visual effect wipe left
  57.   go to next card
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 4 (button)
  63. -- low flags: 00
  64. -- high flags: 0000
  65. -- rect: left=61 top=322 right=342 bottom=83
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 15420 / 15420
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Prev
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   visual effect wipe right
  77.   go to previous card
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 5 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=0 top=326 right=342 bottom=19
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 21847 / 21847
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Home
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   visual effect iris open
  97.   go Home
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 6 (button)
  103. -- low flags: 00
  104. -- high flags: 0000
  105. -- rect: left=494 top=323 right=342 bottom=512
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 6720 / 6720
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: Return
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   visual effect iris close
  117.   pop card
  118. end mouseUp
  119.  
  120.